Loadstar 2/002.d81/middle earth

Commodore BASIC | 2022-08-26 | 7KB | 190 lines

10 rem middle earth quiz by henry newcomb
20 rem translated for the commodore 64 by donna k. woody
30 :
40 poke53272,23: rem selects upper/lower case
50 printchr$(8): rem disables c/shift keys
60 poke53280,14 :rem set border color to light blue
70 poke53281,5 :rem set background color to green
80 printchr$(5):rem set character color to white
97 :
98 rem initialize variables
99 :
100 flag=0:q=32:x=q
110 dim q$(q),a$(x),b$(x),c$(x),d$(x),ra$(x)
127 :
128 rem read data statements
129 :
130 forcnt=1toq:readq$(cnt):reada$(cnt):readb$(cnt):readc$(cnt):readd$(cnt)
140 readra$(cnt):nextcnt
150 forx=1to6:readquiz$(x):next
167 :
168 rem title page
169 :
170 gosub5000
197 :
198 rem print questions
199 :
200 rt=0:wr=0:forcnt=1toq
205 printchr$(147)
210 printtab(13)"[205][201][196][196][204][197] [197][193][210][212][200] [209][213][201][218]"
220 print"[209][213][197][211][212][201][207][206][160]# ";cnt
230 print"";q$(cnt);" ?"
240 print"[193]. ";a$(cnt)
245 print
250 print"[194]. ";b$(cnt)
255 print
260 print"[195]. ";c$(cnt)
265 print
270 print"[196]. ";d$(cnt)
272 print
275 print"[216]. [197]xits [208]rogram"
280 print"[197]nter [[193]] [[194]] [[195]] [[196]] [[216]]  ";
290 poke204,0:poke207,0:getm$:ifm$=""then290
291 poke 204,1 :print
300 ifm$="a"orm$="b"orm$="c"orm$="d"then400
335 ifm$="x"then 700
340 print"[211]orry. [217]ou must enter [193], [194], [195], ,[196] or [216].[145][145][145][145][145]":goto280
397 :
398 rem keep score
399 :
400 ifm$=ra$(cnt)thenrt=rt+1:goto 450
410 wr=wr+1:printtab(26)"[145][215]rong!!"
415 printra$(cnt)" is the correct answer."
420 print"[208]ress space bar to continue.";
430 poke204,0:poke207,0:getz$:ifz$=""then430
440 poke204,1
450 nextcnt
497 :
498 rem final report
499 :
500 printchr$(147)
510 printtab(13)"[205][201][196][196][204][197] [197][193][210][212][200] [209][213][201][218]"
520 print"[217]ou got ";rt;" questions right."
530 print"[217]ou got ";wr;" questions wrong."
540 ifwr=0thenflag=1:goto 600
550 ifwr>0andwr<4thenflag=2:goto 600
560 ifwr>3andwr<13thenflag=3:goto 600
570 ifwr>12andwr<21thenflag=4:goto 600
580 ifwr>20andwr<26thenflag=5:goto 600
590 ifwr>25thenflag=6
600 print"";quiz$(flag)
610 print"[215]ould you like to try again (y/n)?";
620 poke204,0:poke207,0:getz$:ifz$=""then620
630 poke204,1
640 ifz$="y"then 200
650 ifz$="n"then 700
697 :
698 rem end routine
699 :
700 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
705 poke631,13:poke632,13:poke198,2:end
997 :
998 rem data statements
999 :
1000 data"[201]n what land is [205]t. [196]oom located","[199]ondor","[205]ordor","[210]ohan","[197]riador"
1010 data"b"
1020 data"[215]here are the mines of [205]oria located","[205]ordor","[205]isty [205]ountains"
1030 data"[205]ts. of [211]hadow","[201]ron [200]ills","b"
1040 data"[215]here is [196]ol [193]mroth located","[215]est of [199]ondor","[212]he [205]isty [205]ountains"
1050 data"[212]he [194]ay of [194]elfalas","[206]orthern [215]aste","c"
1060 data"[201]n what land is [200]elms [196]eep located","[199]ondor","[212]he [211]hire","[205]ordor"
1070 data"[210]ohan","d"
1080 data"[193]long what road does [201]sengard lie","[207]ld [211]outh [210]oad","[212]he [199]reenway"
1090 data"[207]ld [198]orest [210]oad","[199]reat [197]ast [210]oad",a
1100 data"[201]n what land is the [211]hire located","[210]hovanion","[197]riador","[199]ondor"
1110 data"[210]hun",b
1120 data"[215]hat are the seeing stones of [206]umenor","[197]ye glasses","[208]alantirs"
1130 data"[205]irrors","[215]indows",b
1140 data"[215]ho is the [199]rey [208]ilgrim","[194]ilbo","[193]ragorn","[199]andalf","[194]oromir",c
1150 data"[215]ho was [198]aramir","[194]oromir's brother","[207]ne of the [200]obbits"
1160 data"[212]he elf king","[212]he name of the [194]lack [195]aptain",a
1170 data"[215]hat are oliphaunts","[207]rc for [200]obbit","[197]lephants","[193]n [207]rc clan"
1180 data"[199]oblins",b
1190 data"[215]hat was the special mark that [194]oromir  carried with him","[193] ring"
1200 data"[193] sword","[193] horn","[193]n amulet",c
1210 data"[215]ho stood guard over [211]aruman at         [207]rthanc","[212]he [197]nts","[207]rcs"
1220 data"[199]andalf","[197]lves",a
1230 data"[215]ho rode with [199]andalf on [211]hadowfax to   [205]inas [212]irith","[205]erry"
1240 data"[198]rodo","[208]ippin","[211]am",c
1250 data"[215]hich three of the [199]rey [195]ompany tracked [211]aruman's orcs into [210]ohan"
1260 data"[193]ragorn - [194]oromir - [198]rodo","[205]erry - [208]ippin - [199]andalf"
1270 data"[193]ragorn - [204]egolas - [199]imli","[199]imli - [198]rodo - [211]am",c
1280 data"[215]ho did [193]ragorn, [204]egolas, and [199]imli     meet in [210]ohan","[198]rodo"
1290 data"[212]reebeard","[205]ithrandir","[198]atty [204]umpkin",c
1300 data"[215]hat famous object was broken at the    battle of [193]rgonath"
1310 data"[193]ragorn's sword","[194]oromir's horn","[199]andalf's staff","[198]rodo's ring",b
1320 data"[215]hat was [199]andalf's real name","[193]mbrosius","[194]en","[201]nglorian","[207]lorin",d
1330 data"[200]ow many [206]azgul broke into [195]rickhollow","[212]wo","[212]hree","[198]our","[198]ive",b
1340 data"[215]ho or what according to legend was the first living thing on '[197]arth'"
1350 data"[212]om [194]ombadil","[212]he [197]nts","[212]he elves","[211]maug",a
1360 data"[215]ho became a bear at the battle of the  five armies","[193]ragorn"
1370 data"[199]imli","[194]eorn","[199]andalf",c
1380 data"[215]ho was [209]uickbeam","[193]n [197]nt","[193]n elf","[193] [200]obbit","[199]andalf",a
1390 data"[215]hat was the only harm [211]maug inflicted  on [194]ilbo"
1400 data"[193] small cut on the forehead","[193] twisted ankle"
1410 data"[194]urning the hair off his ankle","[206]one",c
1420 data"[215]ho was the last steward of [199]ondor","[194]oromir","[193]ragorn","[198]aramir"
1430 data"[196]enethor",d
1440 data"[215]ho was the last person to have the ringin his possession","[211]am"
1450 data"[198]rodo","[199]ollum","[206]one of the above",c
1460 data"[206]ame the last three ring bearers in     order","[211]am - [198]rodo - [199]ollum"
1470 data"[198]rodo - [211]am - [199]ollum","[198]rodo - [199]ollum - [198]rodo","[211]am - [199]ollum - [198]rodo"
1480 dataa
1490 data"[215]hich two famous people have nine       fingers","[211]am - [198]rodo"
1500 data"[198]rodo - [211]auron","[199]andalf - [198]rodo","[194]ilbo - [211]am",b
1510 data"[215]hat was the name of the horse that [212]om [194]ombadil rode","[211]hadowfax"
1520 data"[211]trong-bearer","[198]atty [204]umpkin","[212]rail [198]ollower",c
1530 data"[215]ho was [211]harky","[198]rodo","[199]andalf","[211]auron","[211]aruman",d
1540 data"[215]hat did [199]andalf threaten to do to      [194]arliman [194]utterbur"
1550 data"[212]urn him into a frog","[211]poil his food","[212]urn his beer sour"
1560 data"[194]urn his inn down",c
1570 data"[215]hat was [198]rodo's mistake on [215]eathertop","[200]e put the ring on"
1580 data"[200]e got lost","[200]e insulted [193]ragorn","[200]e put the fire out",a
1590 data"[215]ho helped [198]rodo reach [210]ivendell (at thevery end)","[199]andalf","[211]am"
1600 data"[193]ragorn","[199]lorfindel",d
1610 data"[215]hat or who saved [198]rodo's life in the   mines of [205]oria","[193]ragorn"
1620 data"[212]he ring","[212]he mithril coat","[199]andalf's spell",c
1630 :
1631 rem quiz$ report data
1632 :
1640 data"[215]ith a record like that you could guide [198]rodowith your eyes closed."
1650 data"[217]ou could probably guide [198]rodo and      [195]ompany through the lands."
1660 data"[217]ou could probably guide [198]rodo with the help of a map."
1670 data"[217]ou would be wise to have someone guide you through the lands."
1680 data"[215]ith a lot of luck and a map you might  make it through the lands."
1690 data"do not leave the immediate area as you  are likely to get lost."
4997 :
4998 rem title page
4999 :
5000 printchr$(147)
5005 print""
5010 printtab(11)"[205]iddle [197]arth [209]uiz"
5012 printtab(18)"by"
5014 printtab(13)"[149][200]enry [206]ewcomb"
5016 printtab(6)"[159][212]ranslated by [196]onna [203]. [215]oody"
502